VBA批量打印Excel审计底稿的所有Sheet

这两天，思源君在交割日审计项目现场面临批量打印Excel底稿的问题(标的公司合并范围内有多家公司)，之前思源君也写过一篇文章，叫做《Python批量打印文件》，当时是在批量打印PDF、WORD、图片的时候用起来很顺手，但是这次打印Excel底稿时再运行这个Python程序发现只能批量打印不同Excel底稿关闭前所在的某一个Sheet，无法批量打印工作簿中的所有Sheet,因此今天思源君在网上又找到了一个VBA代码（无需安装任何程序，只需要安装有Excel就行，代码来自于“永恒君的百宝箱”），可以批量打印同一个目录下所有Excel底稿的所有Sheet,亲测有效，今天和大家分享一下：

1、新建一个Excel,点击开发工具选项下的Visual Basic按钮

2、输入以下代码

Sub 打印指定文件()
    Dim iPath$, iName$, Wb As Workbook
    Dim i
    iPath = ThisWorkbook.Path & "\"
    iName = Dir(iPath & "*.xls*")
    On Error Resume Next
    Do While iName <> ""
        If iName <> ThisWorkbook.Name Then
            Set Wb = Workbooks.Open(iPath & iName)     
                For i = 1 To Wb.Worksheets.Count             
                Wb.Worksheets(i).PrintOut
                Next
                Wb.Close False
                End If
                iName = Dir
    Loop
End Sub

如图

3、点击保存，另存为Excel中启用宏的工作簿(后缀变为xlsm)

4、然后将要打印的A、B、C底稿（提前设置好每个Sheet的打印格式）与批量打印底稿的宏文件放在一个文件夹下，设置好默认打印机

5、再次打开批量打印.xlsm(Excel中启用宏的工作簿),点击运行按钮，即可实现批量打印Excel审计底稿的所有Sheet功能

延伸阅读：

Python批量打印文件（针对PDF、WORD、图片效果批量打印效果较佳，EXCEL建议使用本文中的VBA代码）

---

End

「思源审计」专属学习群已正式成立，扫描下方二维码添加思源君的个人微信，拉您入群交流学习。

感谢您阅读“思源审计”，如有点滴收获，请点击下方链接关注